Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct02090.geo/00025.ls

Text File | 1997-03-19 | 3.2 KB | 141 lines

on startMovie
  Set_CDcounter(8)
  initLesson()
  CheckForTagWd()
  Set_NEXT(1)
  set_TimerLen(60 * 3)
  set the puppet of sprite 32 to 1
end

on InitLamp
  set the visible of sprite 33 to 0
  UpdateCursors(33, 0)
  set the castNum of sprite 32 to the number of cast "lamp_Off"
end

on set_TimerLen int
  global TimerLen
  set TimerLen to int
end

on get_TimerLen
  global TimerLen
  return TimerLen
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
end

on BlinkNext
  if (the timer > getTimer()) and not soundBusy(2) then
    startTimer()
    if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
    else
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
    end if
  end if
end

on checkScreenStatus
  CheckRollOver()
  CheckSnakeStatus()
  go(the frame)
end

on PressBtn theBtn
  Set_PressedLast(theBtn)
  switchButt(Get_AnsSprite() + theBtn - 1, "down" & theBtn, "HandleBtn" && theBtn)
end

on GoNext
  if not get_Disabled() then
    sound stop 2
    if Get_NEXT() = 1 then
      go("t1+")
    else
      if Get_NEXT() = 2 then
        go("t1")
      else
        if Get_NEXT() = 3 then
          go("t2")
        else
          if Get_NEXT() = 4 then
            go("t3")
          else
            if Get_NEXT() = 5 then
              UpdateCursors(17, 0)
              go("t4")
            else
              if Get_NEXT() = 6 then
                go("t5")
              else
                if Get_NEXT() = 7 then
                  go("t5-animation")
                else
                  if Get_NEXT() = 8 then
                    go("t6")
                  else
                    if Get_NEXT() = 9 then
                      go("t6-animation")
                    else
                      if Get_NEXT() = 10 then
                        go("t7")
                      else
                        if Get_NEXT() = 11 then
                          go("t7-blink")
                        else
                          UpdateCursors(23, 0)
                          GoNextMovie()
                          exit
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
    Set_NEXT(Get_NEXT() + 1)
  end if
end

on stopMovie
  sound stop 1
  unLoad()
  setEmptyCursor()
end

on GoNextMovie
  PlaySound("GOSOUND.SO1")
  SaveHilite()
  Add_CDcounter(1)
  set cdNum to Get_CDcounter()
  set movieName to item cdNum of Get_CurrentSnakeScreens()
  go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
end

on HandleLamp
  if the name of cast the castNum of sprite 32 = "lamp_On" then
    sound stop 2
    set the castNum of sprite 32 to the number of cast "lamp_Off"
    set the visible of sprite 33 to 0
    UpdateCursors(33, 0)
    continue()
  else
    set the castNum of sprite 32 to the number of cast "lamp_On"
    UpdateCursors(33, 3)
    set the visible of sprite 33 to 1
    pause()
    PlaySound("NCT02090.T01")
  end if
  updateStage()
end